home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mobiclic 51
/
Mobiclic51.iso
/
pc
/
DATA
/
COMMUNS
/
MOBICLIC_MENUS.CST
/
00002_Script_gestionnaires généraux
< prev
next >
Wrap
Text File
|
2003-01-30
|
6KB
|
206 lines
-- gestionnaires gΘnΘraux -----------------------------------------
-- variables globales utilisΘes dans les scripts
global volumeOn, version
global validMHG,validMHD,validMBG,validMBD,menuMsg,menusActifs,menuOuvert
global ouvreMenuHG, fermeMenuHG, menuFermeHG
global ouvreMenuHD, fermeMenuHD, menuFermeHD
global ouvreMenuBD, fermeMenuBD, menuFermeBD
global ouvreMenuBG, fermeMenuBG, menuFermeBG
global gzeNoRub, gpistePause
-- initialisation des menus
on spritesMenus
put empty into menuMsg
put "Ouverture du film : " & the movieName & " α " & the time
put "MΘmoire disponible : " & (the freeBytes/8) & " KO"
-- mise α zΘro des variables de controle des menus
razMenus
-- activation des raccourcis clavier
touchesOn
-- dissimulation point pour glisserSur
-- masquerPistes value(field "PPGS")(mis dans le script on beginSprite de la piste pointpour glisser
end spritesMenus
on razMenus
-- menu Θquerre jaune
RAZ_MAGIC_WINDOW("YELLOW")
ouvreMenuHG=0
fermeMenuHG=0
menuFermeHG=1
validMHG=value(line 1 of field "selectMenus")
gzeNoRub = value(member("selectMenus").line[5])
-- menu Θquerre verte
RAZ_MAGIC_WINDOW("GREEN")
ouvreMenuHD=0
fermeMenuHD=0
menuFermeHD=1
tampon = duplicate(value(line 2 of field "selectMenus"))
tampon.deleteAt(1)
validMHD= tampon
-- menu Θquerre bleue
RAZ_MAGIC_WINDOW("BLUE")
ouvreMenuBG=0
fermeMenuBG=0
menuFermeBG=1
validMBG=value(line 3 of field "selectMenus")
-- menu Θquerre rouge
RAZ_MAGIC_WINDOW("RED")
ouvreMenuBD=0
fermeMenuBD=0
menuFermeBD=1
validMBD=value(line 4 of field "selectMenus")
validMBD.add(1)--pour palier momentannΘment le manque d'un bit pour ecouter/couper musique
--
menuOuvert=0
volumeOn=0
menusActifs = 1
put "Menus initialisΘs"
end
-- gestion des messages renvoyΘs par les menus
on gestMenus
if menuMsg <> empty then
put "++ Message gΘrΘ : " & menuMsg
do menuMsg
menuMsg=empty
end if
end gestMenus
-- actions de l'Θquerre jaune
--------------------------------------------
-- introduit pour la gestion des palettes de l'Asie òòòòòòòòòòòòòòòòò
on quitterAtlas
if the movieName contains "ai0" then
forget window "paletteFTC"
forget window "paletteRep"
end if
end
------------------
on CYBERBIB
global gFlag_special_EKR
dossier = "CALEND"
go movie "@/CALEND/CALEN97"
end
------------------
on rub1
quitterAtlas -- fermeture Θventuelle des palettes atlas òòòòòòòò
global gFlag_special_EKR
if gFlag_special_EKR <> VOID then-- permet de gΘrer la commande en interne dans le .dir concernΘ grΓce α la procΘdure locale
local_rubrik1()
else
dossier = member("rubriques").line[1].word[1]
film = member("rubriques").line[1].word[2]
acces dossier, film
end if
end
---------------------------------------
on rub2
--
global sonAI03, ai01
sonAI03 = 0
ai01=0
-- òòòòòòòòòòòòòò
global gFlag_special_EKR
if gFlag_special_EKR <> VOID then -- permet de gΘrer la commande en interne dans le .dir concernΘ grΓce α la procΘdure locale
local_rubrik2()
else
dossier = member("rubriques").line[2].word[1]
film = member("rubriques").line[2].word[2]
acces dossier, film
end if
end
--òòòòòòòòòòòòòòòòòòòòòòòòòòòòò
on atlas
global retourDemoAtlas
retourDemoAtlas=the pathName & the movieName
quitterAtlas -- fermeture Θventuelle des palettes atlas òòòòòòòò
acces("demoAtlas","Ecran1_2_3")
end
--òòòòòòòòòòòòòòòòòòòòòòòòòòòòò
on calendrier
quitterAtlas -- fermeture Θventuelle des palettes atlas òòòòòòòò
global gFlag_special_EKR-- permet de gΘrer la commande en interne dans le .dir concernΘ grΓce α la procΘdure locale
if gFlag_special_EKR <> VOID then
local_calend()
else
acces("calend","calend")
end if
end
------------------------------------
on langues
quitterAtlas -- fermeture Θventuelle des palettes atlas òòòòòòòò
global lan01,lan02, lan03, lan04, gFlag_special_EKR-- permet de gΘrer la commande en interne dans le .dir concernΘ grΓce α la procΘdure locale
if gFlag_special_EKR <> VOID then
local_langues()
else
lan01=0
lan02=0
lan03=0
lan04=0
acces("langues","Lan00")
end if
end
----------------------------------
on jeux
quitterAtlas -- fermeture Θventuelle des palettes atlas òòòòòòòò
global gFlag_special_EKR-- permet de gΘrer la commande en interne dans le .dir concernΘ grΓce α la procΘdure locale
if gFlag_special_EKR <> VOID then
local_quiz()
else
acces "jeux","quiz"
end if
end
-----------------
on RUBRIKBESTOF
global gFlag_special_EKR-- permet de gΘrer la commande en interne dans le .dir concernΘ grΓce α la procΘdure locale
if gFlag_special_EKR <> VOID then
local_RUBRIKBESTOF()
else
acces "RUBRIKBESTOF","BESTOF00"
end if
--------------------
on commande
quitterAtlas -- fermeture Θventuelle des palettes atlas òòòòòòòò
global ListeCom, ListeQte, ListeTotal
ListeCom = []
ListeQte = []
ListeTotal = []
acces ("com","com01")
end
on milan
quitterAtlas -- fermeture Θventuelle des palettes atlas òòòòòòòò
-- acces("data","menu")
go movie "@/MENU"
end milan
on bondabo
quitterAtlas -- fermeture Θventuelle des palettes atlas òòòòòòòò
global ListeCom
initGlobals
append Listecom, new(script"magazine parent",20)
acces("prom","prom02")
end bondabo
-- actions communes α tous les films
on stop
global gFlag_JLM, gpistePause, gFlag_hideWindows
if the pauseState = true then
if gFlag_hideWindows <> VOID then resume_window()
puppetSprite gpistePause, FALSE
updateStage
go to the frame
else
if gFlag_hideWindows <> VOID then hide_window()
H = sprite(gpistePause).member.height
sprite(gpistePause).locV = H/2
updateStage
pause
end if
end stop